(dired-flag-backup-files): Speedup:

check explicitly for ~ at end of line.
(dired-flag-auto-save-files): Similar change.

diff --git a/lisp/dired.el b/lisp/dired.el
index cc7e575ac56312aa440ae7b5367c2d8783fdc341..f26677d2063270a7b21bb5e4275ecb8744b60898 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1709,11 +1709,15 @@ A prefix argument says to unflag those files instead."
   (interactive "P")
   (let ((dired-marker-char (if unflag-p ?\040 dired-del-marker)))
     (dired-mark-if
-       (and (not (looking-at dired-re-dir))
-           (let ((fn (dired-get-filename t t)))
-             (if fn (auto-save-file-name-p
-                     (file-name-nondirectory fn)))))
-       "auto save file")))
+     ;; It is less than general to check for ~ here,
+     ;; but it's the only way this runs fast enough.
+     (and (save-excursion (end-of-line)
+                         (eq (preceding-char) ?#))
+         (not (looking-at dired-re-dir))
+         (let ((fn (dired-get-filename t t)))
+           (if fn (auto-save-file-name-p
+                   (file-name-nondirectory fn)))))
+     "auto save file")))
 
 (defun dired-flag-backup-files (&optional unflag-p)
   "Flag all backup files (names ending with `~') for deletion.
@@ -1721,7 +1725,11 @@ With prefix argument, unflag these files."
   (interactive "P")
   (let ((dired-marker-char (if unflag-p ?\040 dired-del-marker)))
     (dired-mark-if
-     (and (not (looking-at dired-re-dir))
+     ;; It is less than general to check for ~ here,
+     ;; but it's the only way this runs fast enough.
+     (and (save-excursion (end-of-line)
+                         (eq (preceding-char) ?~))
+         (not (looking-at dired-re-dir))
          (let ((fn (dired-get-filename t t)))
            (if fn (backup-file-name-p fn))))
      "backup file")))